perm filename CIRC2.F4[SAB,LCS]1 blob sn#347648 filedate 1978-04-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE CIRCLE2(R,XC,YC)
C00003 ENDMK
CāŠ—;
	SUBROUTINE CIRCLE2(R,XC,YC)
	N=IFIX(R*50.)+12
	X=R
	Y=0.0
	THETA=6.2831853/FLOAT(N)
	C=COS(THETA)
	S=SIN(THETA)
	CALL PLOT(R*XC,YC,3)
	DO 10 I=1,N
	U=X*C-Y*S
	V=X*S-Y*C
	X=U
	Y=V
	CALL PLOT(X+XC,YC,2)
 10	CONTINUE
	RETURN
	END